Top 10k strings from Chaos Constructions '2000 - 512b & 4k Intros Collection (2000)(Extreme)(ru).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Demos & Games / Sinclair ZX Spectrum - Compilations - Demos - [TRD] (TOSEC-v2006-06-06) /
Back to the directory listing
23 ------------------ - - - - - - -
11 INC H
11 ;
9 RET
9 LD A,(HL)
8 LD (HL),A
7 POP HL
7 LD L,A
7 INC L
6 PUSH HL
5 ;---------------------------------------
5 LD A,(HL)
5 LD A,(DE)
5 INC E
5 INC B
5 RRCA
5 INC HL
5
4 LD L,A
4 LD (BC),A
4 EXX
4 CALL FRAME
4 DB note_g5*16+note_c5
4 DB PATTERN_12\256
4 ;
3 +"W\#"S\"K\6
3 #"a\"c\"e\>82
3 XOR A
3 LD C,A
3 LD A,#20
3 LD (HL),A
3 LD (DE),A
3 INC L
3 INC A
3 CALL S_FILL
3 AND (HL)
3 XOR A
3 RLCA
3 LD A,E
3 LD (POS_IN_S_B),HL
3 LD (DE),A
3 INC E
3 DB note_e5*16+note_c5
3 DB note_a5*16+note_d5
3 DB PATTERN_2\256
3 CALL IZM_FRQ
3
3
3
2 Tel.(38822)-4421-1.Bye!!!
2 HRUM v3.5 by Dmitry Pyankov
2 Contact address: [email protected]
2 ;INIT SECTION
2 ;END OF INIT SECTION
2 5. Contact
2 4. Parameters
2 3. Requirements
2 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
2 freq_shift
2 Gorno-Altaisk, 09.01.97
2 ____________________
2 \
2 RRCA
2 RET NC
2 PUSH BC
2 POP BC
2 OR (HL)
2 LD L,(HL)
2 LD H,FRMBUF&H;H=#E0
2 LD H,ATRTAB&H;H=#DA
2 LD D,H
2 LD B,A
2 LD (CMNA),A
2 INC HL
2 INC DE
2 EX DE,HL
2 DEC E
2 CALL SDFRM
2 CALL LGOZA
2 CALL FADE_ON
2 BIT 6,H
2 AND 1
2 .
2 RET
2 PUSH AF ;
2 LD HL,0
2 LD (POS_IN_S_A),HL
2 LD (POS_IN_PAT),HL
2 JR Z,GRID_2
2 JR NZ,LOOP ;
2 INC A
2 HALT
2 EX AF,AF'
2 DEC HL
2 DB note_f5*16+note_d5
2 DB note_e5*16+note_b4
2 DB note_e5*16+note_a4
2 DB note_c5*16+note_a4
2 DB note_a5*16+note_c5
2 DB multiply
2 DB PATTERN_5\256
2 DB PATTERN_3\256
2 DB PATTERN_1\256
2 DB PATTERN_11\256
2 DB PATTERN_10\256
2 DB #D+up_0
2 CALL CLS
2 AND 7
2 WWW: http://www.zx.ru/echo/roschin
2 E-mail: [email protected]
2 ZXNet: 500:95/462.53
2 Fido: 2:5020/689.53
2
2
2
1 ~xsniea^[YXW3O
1 }vpic]XSNJGDBA
1 |yvspmjgda]ZXUROLIFCA>;9641/,*(%~P#!
1 |tld\TME=6/
1 {wrnkhfdb1?
1 yellow EQU 6
1 white EQU 7
1 when we finally pack it with HRUST.
1 up_2 EQU #80
1 up_0 EQU #40
1 tempo EQU 12 ;
1 stk_one EQU #A1
1 stk_data EQU #34
1 sssssssssssssssssssss
1 source W0u
1 some more FX just for fun. Its not a 4k
1 sin EQU #1F
1 rjbZRJB:2*#
1 release of Smile - first place due to
1 red EQU 2
1 really party release and we recognize that
1 prototype code & music
1 patt_size EQU 8 ;
1 paper EQU 8 ;
1 p.s. who need a 2mb screen savers
1 p%q%w%s%p%q%w%s,
1 p$q$w$s$p$q$w$s,
1 ornament_3 EQU 0
1 ornament_2 EQU 2 ;
1 ornament_1 EQU 5 ;
1 ornament_0 EQU 1 ;
1 official results!
1 odebysergeykrutyk
1 note_g5 EQU 5 ;
1 note_g4 EQU 0 ;
1 note_f5 EQU 8
1 note_e5 EQU 4 ;
1 note_d5 EQU 7 ;ORNAMENTS)
1 note_c5 EQU 3 ;
1 note_b5 EQU 6 ;FREQ_TABLE
1 note_b4 EQU 1 ;(
1 note_a5 EQU 9
1 note_a4 EQU 2 ;
1 multiply EQU #04
1 matrix XAS
1 magenta EQU 3
1 length EQU 24 ;
1 intro/CC00
1 idea,design........UnBEL!EVER/x7m
1 hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.
1 hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.
1 green EQU 4
1 from 18 to 19 augest of 2000 in Sankt
1 freq_shift EQU freq_g4-#C9
1 freq_g5 EQU #8A ;
1 freq_g4 EQU #114 ;
1 freq_f5 EQU #9B ;
1 freq_e5 EQU #A5 ;(
1 freq_d5 EQU #B8 ;
1 freq_c5 EQU #CF ;
1 freq_b5 EQU #6E
1 freq_b4 EQU #DD ;
1 freq_a5 EQU #7C ;
1 freq_a4 EQU #F8 ;
1 end_calc EQU #38
1 e_ZTOJD?:61,(
1 dn_2 EQU #00
1 design, fix, st pro mus. player code
1 cyan EQU 5
1 cool music
1 code_up EQU #00 ;
1 code_pack EQU #20 ;
1 code_max EQU #80 ;
1 code_dn EQU #40 ;
1 code......................ALK/x7m
1 code, algorithmes
1 code for Start, Kishkoid and MaTriX.
1 cdfgijlmnpqstuwx
1 by Hrum 3.5
1 brill and maybe runable not only on
1 border EQU 254 ;
1 blue EQU 1
1 black EQU 0 ;
1 bB_DJDCLA-OBBY-OT-^H_JHT-F_XYTFB
1 at 10 days before CC'000, last bit fixed at night 17 august.
1 anymore, but who cares?! Now its really
1 add_ EQU #0F
1 aNOT ATTACHED ATTACHED
1 a$="smile_f":
1 a$="smile":
1 a$="PHFCCpnt":
1 a$="PHFCC":
1 ^XRLGA<72-(#
1 ]------[Smile***4k intro***finalversion!]------[Code by Monster Music by Mm<M (c) Sage--2000-- ----
1 \]*=\Ns#Fr
1 [ZX 512 byte intro...........................................................]
1 [PHG.........................................................................]
1 [ABSZERO.....................................................................]
1 [............................................................................]
1 [!mPeR!0.....................................................................]
1 Z?#mP1a0eraA!A
1 XRTU XOR #F8
1 Work name: Do What I Say
1 UnBEL!EVER^x7m 12.09.2000
1 UnBEL!EVER
1 UVWXY||Z[\]
1 Thing B7
1 TRIGGER EQU $-1
1 TABLE_SIN EQU #AA00 ;
1 StartSRCW 9LM
1 Start m!
1 Smile 4k(final) by Sage
1 Smile (party version) - 3512 bytes
1 Smile (final relese) - 5979 bytes
1 Smile is a 4k only at the party place,
1 Slime BK
1 SkY W0uD
1 SkY B;
1 START BJ
1 SM_IN_ORN EQU $-1 ;
1 SET_PAR LD A,D
1 SET_COD LD (ADR_CODE),A
1 SDRAM CALL 0
1 SCSCONMMProTracker 3.4 compilation of "Start" soundtrack in BAC stereo by Ivan Roshin, Moscow, 14.10.1999
1 SAVE_SM LD (SM_IN_ORN),A
1 SAMPLE DB #F+up_0
1 Road m!
1 ROAD BI
1 RMSC ADD A,0
1 R
1 QUARK EQU $-1 ;
1 ProTracker 3.4 compilation of "Road" soundtrack in BAC stereo by Ivan Roshin, Moscow, 8.05.2000
1 Peterburg by Monster and Mm<M. It was
1 Pentagons.
1 POS_IN_S_B EQU $-2
1 POS_IN_S_A EQU $-2
1 POS_IN_PAT EQU $-2
1 POSITIONS DB PATTERN_0\256
1 POSITION EQU $-2
1 PLASMA HALT
1 PATTERN_9 DB code_up+ornament_0
1 PATTERN_8 DB code_dn+code_pack+ornament_0
1 PATTERN_7 DB code_dn+code_pack+ornament_2
1 PATTERN_6 DB code_max+code_pack+ornament_2
1 PATTERN_5 DB code_dn+code_pack+ornament_1
1 PATTERN_4 DB code_up+ornament_0
1 PATTERN_3 DB code_up+code_pack+ornament_0
1 PATTERN_2 DB code_dn+code_pack+ornament_0
1 PATTERN_12 DB code_max+ornament_0
1 PATTERN_11 DB code_max+ornament_3
1 PATTERN_10 DB code_max+ornament_1
1 PATTERN_1 DB code_dn+code_pack+ornament_1
1 PATTERN_0 DB code_dn+code_pack+ornament_0
1 PALETTE EQU TABLE_SIN+#100 ;
1 OUT_AY_1 LD BC,#FFFD
1 OUT_AY LD L,#0A ;H=#80
1 ORNAMENTS DB freq_a4-freq_shift
1 ORNAMENT EQU $-1
1 Note: simple picture, paper=0, ink=7!
1 Note: 4096 bytes of codes :)))
1 NOTE_TO_AY AND %00001111
1 NOTE_LOW INC HL ;
1 NOTE EQU $-1
1 NE_POSIT LD HL,SAMPLE+12
1 NE_NOTE_F LD HL,0
1 Music.................................Mm<M
1 ModernWorD 2.1 by Demiurge Ash
1 MaTriX B7
1 MSK LD H,FRMBUF&H;H=#E0
1 MSG DEFM "CHAOS HAS YOU"
1 MAKE_SAMPL LD A,B
1 MAKE_PAL_2 LD (DE),A
1 MAKE_PAL_1 LD A,(HL)
1 LOOP_SIN PUSH DE
1 LOOP ADD A,A ;2*x
1 LMOPQSTVWYZ\]_`b
1 KISHKOIDXAS
1 KISHKOIDB7
1 Intro used "OUTD" feature (read special article on my web page)!
1 IZM_FRQ_2 ADD A,freq_shift
1 IZM_FRQ SUB D
1 IK2+1;KISHKA_START
1 GRID_2 LD (HL),D
1 GRID_1 LD D,%10101010
1 From: Russia, Kurgan region
1 From: Russia, Kurgan
1 Files: JOIN_US$.
1 Files: DWIS_4K.B; DWIS_4K.C; dwis_4k.W
1 FROM_STACK EQU #2DD5
1 FRMBUF&H+2;E2/E3
1 FRMBUF EQU #E000
1 FREQ_TABLE DB freq_g4-freq_shift
1 FREQ_B EQU $-2 ;E
1 FREQ_A EQU $-2 ;E
1 FONT EQU #DB00
1 FNTTAB EQU #DE00
1 FADE_F LD DE,SUBFRM
1 END POP AF ;
1 DONTSMOKB7
1 Compo: b/w gfx (6144)
1 Compo: 4K intro
1 Code...............................Monster
1 C_NORM LD A,2 ;
1 COLORS DB yellow*paper+yellow
1 CODE_I_D_N NOP ;
1 CODE BY SERGEY KRUTYKO
1 CMNA LD A,#20;ADD/LD
1 CLS_1 LD (HL),A
1 CLS XOR A
1 CHUN8 EQU #E000
1 CHAOS HAS YOU
1 CDSYM2 LD HL,FNTTAB
1 CDSYM LD A,0
1 B_AMP EQU $-1 ;D
1 BVw|c_yMo~rPAH
1 BRIGBUF EQU #E080
1 Author/group: SerzhSoft & Phantom Lord/AC
1 Author/group: MadMan/CRG
1 A_TO_STACK EQU #2D28
1 A_AMP EQU $-1 ;D
1 ATRTAB EQU #DA00
1 ADR_CODE EQU $-1
1 ACCORD PUSH BC
1 ABSZERO B,
1 > 6 Start Ivan Roshin 208 <
1 > 2 Road Ivan Roshin 625 <
1 <One Kishka>4 512bINTRO CC000
1 ;white*paper+black
1 ;sin (2*x+sm_x) + sin (2*y+sm_y) + sm_x
1 ;position?
1 ;int ((1+sin((2*Pi/255)*COUNTER))*127)
1 ;freq_shift min = #15
1 ;freq_shift max = #6E
1 ;WARNING!!! EXIT GUARANTED IF SP<=8000
1 ;ROLL ONE LINE RIGHT
1 ;PUT 2 MEMORY
1 ;PREPARE SCREEN
1 ;PLASMA -
1 ;PACKED CHUNKS 8X8 - MASK IMAGE
1 ;NOP (#00),
1 ;MATRIX INIT
1 ;MASKBUF EQU #E040
1 ;MAKE X TABLE
1 ;MAKE ANGLE (SPR) TBL
1 ;KISHKOID 512
1 ;FONT MASK DEPACKING
1 ;CREATING SPRITES
1 ;CREATING SIN TBL
1 ;CHARS CYCLE
1 ;CALL A_TO_STACK+1).
1 ;#8007=%00111000 (
1 ; RET (
1 : LOAD "start" CODE
1 : LOAD "slime " CODE
1 : LOAD "road" CODE
1 : LOAD "SkY" CODE
1 512B INTRO MATRIX CC'0
1 4*192+SPC_TBL
1 35689;<>?ACDFGIJ
1 1C,0,3,1,4
1 1. Results of CC000 512 bytes intro compo
1 1. Results of CC000 4K intro compo
1 /bRAM: 128K
1 /bNOT ATTACHED
1 /bNO BASIC FILES !
1 /bMUS.PROCESSOR
1 .dedicated to CC'000 intro compo.
1 ......................................................................]
1 -CATYPH-B8
1 -BAZE->/3SC
1 --512b--B"
1 ---4k---B"
1 -------< CC'000 512 bytes and 4k >-------
1 ------------------------------------->>--
1 , Phantik,
1 (SP_PREP+1)
1 (SP_KSHK+1)
1 (FADE_F+1)
1 (CMNA);ADD/LD
1 (CDSYM2+1)
1 #C000;PAGE
1 #20;ADD/LD
1 #1E,#1B,#1E,#1A,7,3,6,3
1 #1D,#19,#1E,#1A,5,1,6,2
1 #19,#1D,#18,#1C,1,5,0,4
1 #17,#1B,#18,#1C,0,3,1,4
1 "thing "
1 "matrix "
1 "kishkoid"
1 "dontsmok"
1 "SKY" 4K intro for CC'000 stuff:
1 "FUCK YOU"
1 "CHAOS HAS YOU"
1 "2) final release"
1 "2) PHF on CC (pentagon)"
1 "1) party version":
1 "1) PHF on CC":
1 !;mZ=26e(8
1 !$'*-0369<?BEHK
1 !#%(*,/1469;>ACFILORUXZ]a
1 !"$%')*,-/02
1 up_2, up_0, dn_2.
1 the Wide World!
1 start <C> - intro code
1 road <C> - intro code
1 positions
1 position:
1 ornaments (8
1 ornament -
1 name: Join US!
1 freq_shift,
1 StartSRC <W> - source text (for ZXASM 3.10)
1 Start <m> - soundtrack (Pro Tracker 3.4 module)
1 Start <W> - this file
1 START <B> - BASIC loader
1 Road <m> - soundtrack (Pro Tracker 3.4 module)
1 Road <W> - this file
1 Real length: 512 bytes
1 Real length: 3335 bytes
1 ROAD <B> - BASIC loader
1 RAM used : #4000-#5AFF, #8000-#FFFF
1 RAM used : #4000-#5AFF, #6000-#FFFF (pages: 0,2,5,7)
1 Play time : 1:32
1 Play time : 1:00 (include 12-seconds decrunching)
1 PROGRAMM
1 ORNAMENTS.
1 ORNAMENTS
1 NEW DISK
1 LD A,C: CALL A_TO_STACK
1 INC HL (#23):
1 INC (HL), DEC (HL), NOP,
1 INC (HL), DEC (HL)
1 HL=#3FFF, D=#AA,
1 FREQ_TABLE/256
1 E AND 31)
1 E - ALL_AMP.
1 CODE_I_D_N,
1 CODE_I_D_N
1 2->1->0)
1 -= Do What I Say =-
1 (c) SerzhSoft, 2000
1 (HL=#57FF):
1 (DE=TABLE_SIN!):
1 %01111000 -
1 #800A - #A9 (
1 "-CATYPH-"
1 by Phantom Lord/AC
1 \ \|/ / DWIS 4K intro
1 \ \|/ /
1 CLEAR 24575:LOAD CODE TO 49152:USR 49152
1 / fully recoded by SerzhSoft
1 / Shadrinsk, Karl Libkneht
1 [email protected]
1 \ SerzhSoft / TM snail mail:
1 \ SerzhSoft / TM (special for Cafe'2000)
1 If you run this intro on 48K... then you see "UPGRADE!" :)
1 .
1 (c) 2000 by Ivan Roshin, Moscow
1 Six 512 bytes intros including source
1 Seven 4k intros including final
1 Original "Smile" was born at one night
1 After party we back to Samara and add
1 by Phantom Lord/AC, 1999
1 This intro correctly work on any ZX Spectrum 48/128!
1 under Win'9x anymore?
1 Place Title Author Points
1 Chaos Constructions 000
1 641800, Russia, Kurgan region,
1 4K intro
1 16K prototype code and music
1 -=[512 bytes intro]=-
1 XOR 1
1 XOR #10
1 SUB C
1 SLA A
1 SET 7,L
1 SET 6,L
1 SBC A,HX
1 RLC C
1 RLC (HL)
1 Place Title Author Points
1 PUSH DE
1 OUT (#FE),A
1 ORG #8000
1 NEG ;+4
1 LDIR; CLEANUP FROM #8300 TO #FFFF
1 LDIR
1 LD LX,A
1 LD L,E
1 LD L,B;0
1 LD L,0
1 LD L,#80
1 LD L,#5A
1 LD L,#17
1 LD HX,A
1 LD HL,SUBFRM
1 LD HL,MSG-1
1 LD HL,FRMBUF+1
1 LD HL,FADEFRM
1 LD HL,BRIGBUF+1
1 LD HL,10072
1 LD H,FNTTAB&H;H=#DE
1 LD H,CHUN8&H;H=#E0
1 LD H,(HL)
1 LD H,#83
1 LD H,#5B
1 LD H,#3D
1 LD E,L
1 LD E,A
1 LD E,1
1 LD E,#20
1 LD E,#17
1 LD DE,SUBBRG
1 LD DE,CN8
1 LD D,FRMBUF&H;D=#E0
1 LD D,FONT&H;H=#DB
1 LD D,(HL)
1 LD C,L
1 LD C,8
1 LD C,4
1 LD C,#17
1 LD BC,#7D00
1 LD B,80
1 LD B,6
1 LD B,5
1 LD B,4
1 LD B,2
1 LD B,150
1 LD B,0
1 LD B,#58
1 LD B,#18
1 LD A,R
1 LD A,L
1 LD A,C
1 LD A,4
1 LD A,(RMSC+1)
1 LD A,(CMNA);ADD/LD
1 LD A,#FC;-4
1 LD A,#F8
1 LD A,#5F
1 LD A,#44
1 LD A,#3E
1 LD (XRTU+1),A
1 LD (SDRAM+1),DE
1 LD (RMSC+1),A
1 LD (MSK+1),A
1 LD (HL),L
1 LD (HL),E
1 LD (HL),D
1 LD (FADE_F+1),HL
1 LD (CDSYM2+1),A
1 LD (CDSYM+1),A
1 JR Z,SKP1
1 JR Z,LPSH2
1 JR Z,LIP3
1 JR Z,LIP1
1 JR Z,IFN0
1 JR YYS
1 JR NZ,TBFAN
1 JR NZ,SCRN
1 JR NZ,NPS0
1 JR NZ,LSDFR
1 JR NZ,LPSH0
1 JR NZ,LPSH
1 JR NZ,LLFAI
1 JR NZ,LIN0
1 JR NC,SKP2
1 JR NC,LIP2
1 JR MESSA
1 JR LFILL
1 JR FD_TR
1 JR C,YPSYM
1 JR C,NOSDV
1 JR C,E_MESS
1 JP P,NLIN
1 INC D
1 INC C
1 INC BC
1 DJNZ LYU
1 DJNZ LPCYR
1 DJNZ LFILL
1 DJNZ FRAME
1 DEFB #1E,#1B,#1E,#1A,7,3,6,3
1 DEFB #1D,#19,#1E,#1A,5,1,6,2
1 DEFB #19,#1D,#18,#1C,1,5,0,4
1 DEFB #17,#1B,#18,#1C,0,3,1,4
1 DEC L
1 DEC HL
1 DEC H
1 DEC C
1 CP L
1 CP #40
1 CP #21
1 CP #20
1 CALL PRNMX
1 CALL OUTFRM
1 CALL LFILL
1 CALL FILLA
1 CALL FILL
1 CALL FADE_OFF
1 Big hello to all friends!
1 BIT 7,E
1 BIT 5,L
1 BIT 3,H
1 BIT 0,H
1 AND #7F
1 ADD HL,BC
1 ADD A,LX
1 ADD A,FRMBUF&H+2;A=E2/E3
1 ADD A,B
1 ADD A,#41;41/42
1 ADD A,#40
1 -> Sage Group production <-
1 This intro correctly work only on Pentagon 128
1 5 -CATYPH- Vodoley/Excess team 491
1 4 Thing Mad Cat/TPML 530
1 3 Dwish 4k Serzh 618
1 1 Smile Sage 838
1 party version
1 has a basic loader ;)
1 \ / And very amazing greetings to all
1 \ /
1 5 AbsZero 322
1 4 PHFCCpnt drv53b6/PhF 404
1 3 Slime Vodoley/Excess team 411
1 2 Matrix Extreme 490
1 1 Kishkoid Mad Cat/TPML 805
1 \/ peoples who keep da Speccy scene alive!
1 \/ e-mail: [email protected]
1 XOR C
1 SUB C
1 SUB 2
1 SLA L ;*2
1 RST #28
1 RES 4,L ;-16
1 POP DE
1 POP BC
1 POP AF ;NOTE
1 POP AF ;
1 POP AF
1 OUTD
1 OUT (border),A
1 OUT (C),L
1 ORG #81FD
1 ORG #80C6
1 ORG #8001
1 LD XH,A
1 LD L,9
1 LD L,8
1 LD L,(HL)
1 LD L,#A
1 LD HL,SAMPLE
1 LD HL,QUARK
1 LD HL,POSITIONS-1
1 LD HL,COLORS-#74
1 LD HL,A_AMP
1 LD HL,(FREQ_A)
1 LD HL,#8201
1 LD HL,#8004
1 LD HL,#5AFF
1 LD H,TABLE_SIN/256
1 LD H,ORNAMENTS/256
1 LD H,#80
1 LD E,freq_g5-freq_shift
1 LD E,A ;DE=#AA00=TABLE_SIN!
1 LD E,A ;(
1 LD DE,freq_e5-freq_shift
1 LD DE,9*256+(freq_g4-freq_shift)
1 LD DE,0
1 LD DE,%0001000101000100
1 LD DE,#5800
1 LD DE,#3505 ;code_up=#00
1 LD DE,#34FF
1 LD D,E
1 LD D,A ;=LD DE,0
1 LD C,24
1 LD BC,#0C40
1 LD B,0+(256+11)/12
1 LD B,(HL)
1 LD B,#BF
1 LD B,#4D
1 LD A,patt_size-1
1 LD A,XL
1 LD A,L
1 LD A,C ;y
1 LD A,0 ;
1 LD A,(HL) ;sin(2*x+sm_x)
1 LD A,#23
1 LD (TRIGGER),A ;
1 LD (POSITION),HL
1 LD (ORNAMENT),A
1 LD (NOTE),A
1 LD (HL),tempo
1 LD (HL),B ;=LD (HL),0
1 LD (HL),B
1 LD (HL),A ;
1 LD (FREQ_B),HL
1 LD (FREQ_A),A
1 LD (CODE_I_D_N),A
1 LD (A_AMP),A
1 JR Z,SET_COD
1 JR Z,END
1 JR PLASMA ;
1 JR OUT_AY
1 JR NZ,SAVE_SM
1 JR NZ,NE_POSIT
1 JR NZ,NE_NOTE ;
1 JR NZ,MAKE_PAL_1
1 JR NZ,LOOP_SIN
1 JR NZ,GRID_1
1 JR NZ,CLS_1
1 JR NOTE_TO_AY
1 JR NC,OUT_AY_1
1 JR C_NORM
1 JR C,SET_PAR ;
1 JR C,SET_PAR
1 JR C,NOTE_LOW
1 INC XL
1 INC H ;=LD H,PATTERN_0/256
1 INC H ;= LD H,PALETTE/256
1 INC DE
1 INC D ;DE:=PALETTE!
1 DJNZ MAKE_SAMPL
1 DJNZ MAKE_PAL_2
1 DJNZ ACCORD
1 DEC L
1 DEC H ;
1 DEC C
1 DEC (HL)
1 DB yellow*paper+red
1 DB yellow*paper+green
1 DB stk_one
1 DB stk_data ;2*Pi/255
1 DB stk_data ;127
1 DB sin
1 DB red*paper+yellow
1 DB red*paper+red
1 DB red*paper+magenta
1 DB note_g5*16+note_d5
1 DB note_f5*16+note_e5
1 DB note_f5*16+note_c5
1 DB note_d5*16+note_e5
1 DB note_d5*16+note_a4
1 DB note_c5*16+note_g4
1 DB note_b5*16+note_e5
1 DB note_a5*16+note_g5
1 DB magenta*paper+red
1 DB magenta*paper+magenta
1 DB magenta*paper+green
1 DB green*paper+yellow
1 DB green*paper+magenta
1 DB green*paper+green
1 DB freq_g5-freq_shift
1 DB freq_f5-freq_shift
1 DB freq_e5-freq_shift
1 DB freq_d5-freq_shift
1 DB freq_c5-freq_shift
1 DB freq_b5-freq_shift
1 DB freq_b4-freq_shift
1 DB freq_a5-freq_shift
1 DB end_calc
1 DB add_
1 DB PATTERN_9\256
1 DB PATTERN_8\256
1 DB PATTERN_7\256
1 DB PATTERN_6\256
1 DB PATTERN_4\256
1 DB PATTERN_0\256
1 DB #EB,#49,#D9,#B4,#56
1 DB #E+up_0
1 DB #40,#B0,#00,#7F
1 CP PLAY
1 CP 3
1 CALL PLAY
1 CALL NE_NOTE_F
1 CALL IZM_FRQ_2
1 CALL FROM_STACK
1 CALL A_TO_STACK
1 BIT 6,H
1 BIT 5,(HL)
1 BIT 3,H
1 BIT 1,H
1 BIT 0,H
1 AND 31
1 AND %00011111
1 ADD A,ornament_0 ;N
1 ADD A,XH ;2*y+sm_y
1 ADD A,ORNAMENTS\256
1 ADD A,H ;
1 ADD A,FREQ_TABLE\256
1 ADD A,E
1 ADD A,C
1 ADD A,B ;2*x+sm_x
1 ADD A,B ;+sm_x
1 ADD A,A ;2*y
1 ADD A,A ;code_max=#80
1 ADD A,A ;code_dn=#40
1 ADD A,(HL) ;
1 ADC A,A ;
1 512 bytes intro
1 or another no-wait ZX-compatible computer
1 The MATRIX
1 4k intro for CC'000
1 128K, AY MUSIC
1 [email protected]
1 official package
1 :))))))))))))))))))))))))))))))))
1 Soundtrack written in BAC stereo
1 SkY JtN/4D n/p
1 Russia/Samara
1 Kolotov Sergey Sergeevich
1 Don't Smoke drv53b6/PhF 119
1 (c) Sage'2000
1 "START"
1 with 128K RAM and 71680 tacts/int
1 Soundtrack written in BAC stereo
1 intro compo
1 for
1 9.09.2000
1 july, 2000
1 aka SerzhSoft
1 Smile
1 ;4
1 ;(2
1 Not for emulators!
1 ;freq-freq_shift
1 - 5 FX
1 - 2 FX
1 street, 27-1.
1 ;
1 ;
1 +
1 .
1
1
1
1